home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / n_b-v200.zip / DAS-NBV1.INC < prev    next >
Text File  |  1996-03-11  |  7KB  |  108 lines
  1. '────────────────────────────────────────────────────────────────────────────
  2.  
  3. $LINK "DAS-NBV1.PBL"
  4.  
  5. '────────────────────────────────────────────────────────────────────────────
  6.   TYPE PolygonTYPE
  7.     X        AS INTEGER
  8.     Y        AS INTEGER
  9.     Points   AS INTEGER
  10.     Radius   AS INTEGER
  11.     Aspect   AS SINGLE
  12.     StartDeg AS SINGLE
  13.     EndDeg   AS SINGLE
  14.     Pmode    AS BYTE
  15.     Colour   AS BYTE
  16.     PointDif AS SINGLE
  17.     StartRad AS SINGLE
  18.     EndRad   AS SINGLE
  19.     XRadius  AS INTEGER
  20.     YRadius  AS INTEGER
  21.   END TYPE
  22. '────────────────────────────────────────────────────────────────────────────
  23. '════════════════════════════════════════════════════════════════════════════
  24. DECLARE FUNCTION fBackground?       ()
  25. DECLARE FUNCTION fBlowIcon$         (SEG ANY,BYVAL F?)
  26. DECLARE      SUB  BlowIconARR       (SEG ANY,SEG ANY,BYVAL F?)
  27. DECLARE      SUB  BlowIconSTR       (SEG ANY,SEG ANY,BYVAL F?)
  28. DECLARE FUNCTION fBMPbytes??        (BYVAL Wide%,BYVAL High%)
  29. DECLARE FUNCTION fBMPbytesARR??     (SEG ANY)
  30. DECLARE FUNCTION fBMPbytesSTR??     (SEG ANY,BYVAL MidPos%)
  31. DECLARE FUNCTION fBMPwords%         (BYVAL Wide%,BYVAL High%)
  32. DECLARE FUNCTION fBMPwordsARR%      (SEG ANY)
  33. DECLARE FUNCTION fBMPwordsSTR%      (SEG ANY,BYVAL MidPos%)
  34. DECLARE FUNCTION fCOLORflag?        ()
  35. DECLARE FUNCTION fForeground?       ()
  36. DECLARE      SUB  GATTR             (BYVAL Attr?)
  37. DECLARE      SUB  GBoxCOLOR         (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL C?)
  38. DECLARE      SUB  GBoxCOLOR2        (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL OldColor?,BYVAL NewColor?)
  39. DECLARE      SUB  GBoxDRAW          (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Mask%,BYVAL Pmode?,BYVAL C?)
  40. DECLARE      SUB  GBoxDRAWtt        (BYVAL X1%,BYVAL Y1%,BYVAL X2%,BYVAL Y2%,BYVAL Mask%,BYVAL TClr?,BYVAL BClr?)
  41. DECLARE      SUB  GBoxFILL          (BYVAL X1%,BYVAL Y1%,BYVAL X2%,BYVAL Y2%,BYVAL Mask$,BYVAL Pmode?,BYVAL Clr?)
  42. DECLARE      SUB  GCOLOR            (BYVAL Fore?,BYVAL Back?)
  43. DECLARE FUNCTION fGetCArr??         (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,SEG ANY,BYVAL Clr?)
  44. DECLARE FUNCTION fGetCStr$          (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Clr?)
  45. DECLARE FUNCTION fGetFArr??         (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,SEG ANY)
  46. DECLARE FUNCTION fGetFStr$          (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%)
  47. DECLARE FUNCTION fGetPArr??         (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,SEG ANY,BYVAL Plane?)
  48. DECLARE FUNCTION fGetPStr$          (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Plane?)
  49. DECLARE      SUB  GetViewWindow     (SEG C1%,SEG R1%,SEG C2%,SEG R2%)
  50. DECLARE      SUB  GLineDRAW         (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%,BYVAL Mask%,BYVAL Pmode?,BYVAL Clr?)
  51. DECLARE      SUB  GraphicSETUP      ()
  52. DECLARE      SUB  GRFwaitRefresh    (BYVAL ScanLine%)
  53. DECLARE FUNCTION fIconBytes??       (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%)
  54. DECLARE FUNCTION fIconWords%        (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%)
  55. DECLARE FUNCTION fICopy2$           (SEG ANY)
  56. DECLARE      SUB  ICopyARR          (SEG ANY,SEG ANY)
  57. DECLARE      SUB  ICopySTR          (SEG ANY,SEG ANY)
  58. DECLARE      SUB  InvertIconArr     (SEG ANY)
  59. DECLARE      SUB  InvertIconStr     (SEG ANY)
  60. DECLARE FUNCTION fMASKadjust?       ()
  61. DECLARE      SUB  Plot              (BYVAL C1%,BYVAL R1%,BYVAL Pmode?,BYVAL Clr?)
  62. DECLARE      SUB  PutCarr           (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  63. DECLARE FUNCTION fPutCarr%          (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  64. DECLARE      SUB  PutCBarr          (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  65. DECLARE FUNCTION fPutCBarr%         (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  66. DECLARE      SUB  PutCBstr          (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  67. DECLARE FUNCTION fPutCBstr%         (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  68. DECLARE      SUB  PutCstr           (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  69. DECLARE FUNCTION fPutCstr%          (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  70. DECLARE      SUB  PutFBArr          (BYVAL X%,BYVAL Y%,SEG ANY)
  71. DECLARE FUNCTION fPutFBarr%         (BYVAL X%,BYVAL Y%,SEG ANY)
  72. DECLARE      SUB  PutFBStr          (BYVAL X%,BYVAL Y%,SEG ANY)
  73. DECLARE FUNCTION fPutFBstr%         (BYVAL X%,BYVAL Y%,SEG ANY)
  74. DECLARE      SUB  PutParr           (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Plane?)
  75. DECLARE FUNCTION fPutParr%          (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Plane?)
  76. DECLARE      SUB  PutPstr           (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Plane?)
  77. DECLARE FUNCTION fPutPstr%          (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Plane?)
  78. DECLARE      SUB  PutWarr           (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  79. DECLARE FUNCTION fPutWarr%          (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  80. DECLARE      SUB  PutWstr           (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  81. DECLARE FUNCTION fPutWstr%          (BYVAL X%,BYVAL Y%,SEG ANY,BYVAL Pm?,BYVAL Clr?)
  82. DECLARE FUNCTION fScrnMaxX%         ()
  83. DECLARE FUNCTION fScrnMaxY%         ()
  84. DECLARE      SUB  SetBackground     (BYVAL Clr?)
  85. DECLARE      SUB  SetCOLORflag      (BYVAL Flag?)
  86. DECLARE      SUB  SetForeground     (BYVAL Clr?)
  87. DECLARE      SUB  SetMASKadjust     (BYVAL Flag?)
  88. DECLARE      SUB  SetViewWindow     (BYVAL C1%,BYVAL R1%,BYVAL C2%,BYVAL R2%)
  89. DECLARE      SUB  ShearIcon         (SEG ANY,SEG ANY,BYVAL Shr%)
  90. DECLARE FUNCTION fShearIcon$        (SEG ANY,BYVAL Shr%)
  91. DECLARE      SUB  ViewScreen        ()
  92. DECLARE FUNCTION fWndoMaxX%         ()
  93. DECLARE FUNCTION fWndoMaxY%         ()
  94. DECLARE FUNCTION fWndoMinX%         ()
  95. DECLARE FUNCTION fWndoMinY%         ()
  96. '════════════════════════════════════════════════════════════════════════════
  97. DECLARE FUNCTION fComputeArc?       (tP AS PolygonTYPE,SEG XY%())
  98. DECLARE FUNCTION fDeg2Rad#          (BYVAL Degree#)
  99. DECLARE      SUB  Draw2DPolygon     (tP AS PolygonTYPE)
  100. DECLARE      SUB  Draw3DPolygon     (tF AS PolygonTYPE,tB AS PolygonTYPE,BYVAL Which?)
  101. DECLARE      SUB  DrawStar          (tCin as PolygonTYPE,tCout as PolygonTYPE)
  102. DECLARE      SUB  PolygonDraw       (SEG XY%(),BYVAL Pts%,BYVAL Mask%,BYVAL Pmode?,BYVAL Colour?)
  103. DECLARE      SUB  PolygonPoint      (tP AS PolygonTYPE,BYVAL Pnt%,SEG X%,SEG Y%)
  104. DECLARE      SUB  PolygonPoints     (tP AS PolygonTYPE,SEG XY%())
  105. DECLARE      SUB  PolygonReady      (tP AS PolygonTYPE)
  106. DECLARE      SUB  RayPoint          (BYVAL X%,BYVAL Y%,BYVAL Radius%,BYVAL Aspect!,BYVAL Points%,BYVAL Pnt%,SEG Col%,SEG Row%)
  107. '════════════════════════════════════════════════════════════════════════════
  108.